home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / WHERE.BAS < prev    next >
BASIC Source File  |  1985-06-09  |  3KB  |  74 lines
  1. 100   ' WHERE.BAS -- BY CHRIS SPRATT -- FROM KIYOSKI AKIMA ARTICLE IN "USER-TO-       USER", PC MAGAZINE VOLUME 4 NUMBER 9, PAGES 200 -202.
  2. 105   'TO RUN WHERE.COM  -- TYPE AT DOS PROMPT - A> WHERE [drive:][filename.ext]
  3. 106   'IF TOO MANY FILES ARE FOUND USE `MORE' DOS COMMAND i.e. |MORE AFTER .ext
  4. 107   'OR ">MATCHES" WHICH WILL REDIRECT THE MATCHES TO A FILE CALLED `MATCHES'
  5. 108   '
  6. 110   FOR I%= 1 TO 418
  7. 120   READ J%
  8. 130   TOTAL! = TOTAL!+VAL("&H"+J$)
  9. 140   NEXT I%
  10. 150   IF TOTAL! =36950! THEN RESTORE:GOTO 170
  11. 160   PRINT "CHECK YOUR DATA STATEMENTS!:END
  12. 170   OPEN "WHERE.COM" AS #1 LEN = 1
  13. 180   FIELD #1,1 AS C$
  14. 190   FOR I% = 1 TO 418
  15. 200   READ J%
  16. 210   LSET C$=CHR$(VAL("&H"+J$)
  17. 220   PUT #1,I%
  18. 230   NEXT I%
  19. 240   CLOSE #1
  20. 250   PRINT "WHERE.COM CREATED":END
  21. 260  DATA  FC,BF,79,02,BE,81,00,AC
  22. 270  DATA  3C,0D,74,1E,3C,20,76,F7
  23. 280  DATA  80,3E,5C,00,00,74,06,AC
  24. 290  DATA  AC,3C,20,76,06,AA,AC,3C
  25. 300  DATA  20,77,FA,A0,5C,00,0A,C0
  26. 310  DATA  75,06,B4,19,CD,21,FE,C0
  27. 320  DATA  00,06,27,02,BA,76,02,BB
  28. 330  DATA  2A,02,E8,16,00,80,3E,86
  29. 340  DATA  02,FF,75,0D,BB,02,00,B9
  30. 350  DATA  1A,00,B4,40,BA,87,02,CD
  31. 360  DATA  21,CD,20,52,BE,79,02,E8
  32. 370  DATA  86,00,33,C9,E8,60,00,72
  33. 380  DATA  0D,E8,85,00,E8,6D,00,72
  34. 390  DATA  05,E8,7D,00,EB,F6,5A,52
  35. 400  DATA  BE,23,02,E8,6A,00,B9,10
  36. 410  DATA  00,E8,43,00,72,3F,8B,F2
  37. 420  DATA  F6,44,15,10,75,0D,E8,4B
  38. 430  DATA  00,72,32,8B,F2,F6,44,15
  39. 440  DATA  10,74,F3,80,7C,1E,2E,74
  40. 450  DATA  ED,57,53,8B,F2,83,C6,1E
  41. 460  DATA  8B,FB,AC,AA,0A,C0,75,FA
  42. 470  DATA  8B,DF,AA,C6,47,FF,5C,E8
  43. 480  DATA  A1,FF,5B,5F,C6,07,00,B4
  44. 490  DATA  1A,CD,21,EB,C9,5A,C3,51
  45. 500  DATA  83,C2,2C,B4,1A,CD,21,8B
  46. 510  DATA  EA,B4,4E,BA,27,02,CD,21
  47. 520  DATA  8B,D5,59,C3,8B,EA,B4,4F
  48. 530  DATA  BA,27,02,CD,21,8B,D5,C3
  49. 540  DATA  8B,FB,AC,AA,0A,C0,75,FA
  50. 550  DATA  C3,8B,EA,80,7E,1E,2E,74
  51. 560  DATA  22,BA,27,02,32,C0,A2,86
  52. 570  DATA  02,86,07,97,E8,15,00,97
  53. 580  DATA  88,07,8B,D5,83,C2,1E,E8
  54. 590  DATA  0A,00,B4,09,BA,9F,02,CD
  55. 600  DATA  21,8B,D5,C3,8B,F2,B4,02
  56. 610  DATA  AC,8A,D0,CD,21,AC,0A,C0
  57. 620  DATA  75,F7,C3,2A,2E,2A,00,40
  58. 630  DATA  3A,5C,00,00,00,00,00,00
  59. 640  DATA  00,00,00,00,00,00,00,00
  60. 650  DATA  00,00,00,00,00,00,00,00
  61. 660  DATA  00,00,00,00,00,00,00,00
  62. 670  DATA  00,00,00,00,00,00,00,00
  63. 680  DATA  00,00,00,00,00,00,00,00
  64. 690  DATA  00,00,00,00,00,00,00,00
  65. 700  DATA  00,00,00,00,00,00,00,00
  66. 710  DATA  00,00,00,00,00,00,00,00
  67. 720  DATA  00,00,00,00,00,00,00,00
  68. 730  DATA  00,2A,2E,2A,00,00,00,00
  69. 740  DATA  00,00,00,00,00,00,FF,4E
  70. 750  DATA  6F,20,6D,61,74,63,68,69
  71. 760  DATA  6E,67,20,66,69,6C,65,73
  72. 770  DATA  20,66,6F,75,6E,64,2E,0D
  73. 780  DATA  0A,24
  74.